﻿Public Class EmpleadoFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Empleado")
        Me.codigo = Utils.Enumeradores.Excepeciones.EmpleadoFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Empleado"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class EmpleadoFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Empleado")
        Me.codigo = Utils.Enumeradores.Excepeciones.EmpleadoFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Empleado"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class EmpleadoFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Empleado")
        Me.codigo = Utils.Enumeradores.Excepeciones.EmpleadoFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Empleado"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class EmpleadoFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Empleado")
        Me.codigo = Utils.Enumeradores.Excepeciones.EmpleadoFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Empleado"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class EmpleadoFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Empleados")
        Me.codigo = Utils.Enumeradores.Excepeciones.EmpleadoFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Empleados"
        Me.innerException2 = innerException
    End Sub
End Class
